home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00738_DE- bt cont.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.1 KB  |  50 lines
  1. on MouseClick
  2.   global gNumSpr, gLabel, gSujet0, gSprSel, gLocLabel, gBoutons, gSurvolPrec
  3.   set moncod to word 1 of the name of cast the castNum of sprite gNumSpr
  4.   if moncod <> "afr" then
  5.     set gLabel to "DE:" & moncod
  6.     set gSujet0 to 0
  7.     set gSprSel to 0
  8.     set gLocLabel to "DE:OU mon"
  9.   else
  10.     beep()
  11.     curseur(1)
  12.     gBoutons(relache, gNumSpr)
  13.     set gSurvolPrec to -1
  14.   end if
  15. end
  16.  
  17. on mouseDown
  18.   global gBoutons, gNumSpr, gListBtDec, g1erSprLoc
  19.   if rollOver(g1erSprLoc + 4) then
  20.     set gNumSpr to g1erSprLoc + 4
  21.     gBoutons(appuie, gNumSpr)
  22.   else
  23.     if rollOver(g1erSprLoc + 5) then
  24.       set gNumSpr to g1erSprLoc + 5
  25.       gBoutons(appuie, gNumSpr)
  26.     else
  27.       set gNumSpr to 0
  28.     end if
  29.   end if
  30. end
  31.  
  32. on mouseUp
  33.   global gBoutons, gNumSpr, g1erSprLoc, gLabel, gSujet0, gSprSel
  34.   curseur(2)
  35.   if rollOver(g1erSprLoc + 4) then
  36.     set monNumSpr to g1erSprLoc + 4
  37.   else
  38.     if rollOver(g1erSprLoc + 5) then
  39.       set monNumSpr to g1erSprLoc + 5
  40.     else
  41.       set moNumSpr to -2
  42.     end if
  43.   end if
  44.   if monNumSpr = gNumSpr then
  45.     MouseClick()
  46.   else
  47.     pass()
  48.   end if
  49. end
  50.